﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim messaggio As String = ""
    Dim dir As System.IO.DirectoryInfo
    dir =
       My.Computer.FileSystem.GetDirectoryInfo(
       "C:\Windows")
    messaggio &= (
      "Nome completo: " & dir.FullName & NL)
    messaggio &= (
      "Data/ora creazione: " & dir.CreationTime & NL)
    messaggio &= (
      "Data/ora ultimo accesso: " & dir.LastAccessTime & NL)
    messaggio &= (
      "Data/ora ultima scrittura: " & dir.LastWriteTime & NL)
    messaggio &= (
      "Attributi: " & dir.Attributes & NL)
    Console.WriteLine(messaggio)
    Console.ReadLine()

  End Sub
End Module
